knitr::opts_chunk$set(echo = FALSE)
library(haven)
library(tidyverse)
library(magrittr)
library(ggplot2)

#___________________________________________________________________________________________#
# Read in dta files
#___________________________________________________________________________________________#
datadir <- file.path(getwd(), "Data", "HIES_raw_19May20")
outdir <- file.path(getwd(), "Outputs")

source("R_scripts/cleaning_functions.R")
source("R_scripts/plotting_functions.R")

Fisheries data

Multi-response questions

Fisheries continued…

Single response questions

VRS Data

Multi-response questions

VRS continued…

Single response questions

Event Roster Data: List of events

## # A tibble: 4 x 1
##   event_roster__id     
##   <chr>                
## 1 Coral bleaching event
## 2 Cyclone              
## 3 Harmful algal bloom  
## 4 Tsunami

Event: Coral bleaching

Event: Cyclone

Event: Harmful algal bloom

Event: Tsunami

Fish Roster Data: List of fish assets

## # A tibble: 17 x 1
##    fish_asset_roster__id         
##    <chr>                         
##  1 Fibreglass boats              
##  2 Outboard Motors               
##  3 Fishing Nets (gillnet)        
##  4 Spearguns                     
##  5 Fishing Lines                 
##  6 Active Fish Traps             
##  7 Underwater flashlights        
##  8 Wood canoes                   
##  9 Eskies/portable coolers       
## 10 SCUBA diving equipment        
## 11 Freezers (electric or propane)
## 12 Ice machines                  
## 13 Fishing Nets (purse)          
## 14 Drag Nets                     
## 15 Harpoons/Spears               
## 16 Other Fishing Equipment (note)
## 17 FAD (Fish Aggregating Device)

Asset: Fibreglass boats

Asset: Outboard Motors

Asset: Fishing Nets (gillnet)

Asset: Spearguns

Asset: Fishing Lines

Asset: Active Fish Traps

Asset: Underwater flashlights

Asset: Wood canoes

Asset: Eskies/portable coolers

Asset: SCUBA diving equipment

Asset: Freezers (electric or propane)

Asset: Ice machines

Asset: Fishing Nets (purse)

Asset: Drag Nets

Asset: Harpoons/Spears

Asset: FAD (Fish Aggregating Device)

Asset: Other Fishing Equipment (note)